0 REM << RR25-2 >>
10 REM =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
20 REM  - SEQUENTIAL RECEIVER -
30 REM     RUPERT REPORT #25
40 REM =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
50 REM  RECEIVE A SEQUENTIAL FILE
60 REM  FROM THE RS-232 PORT
70 REM =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
80 PRINT CHR$(147)
90 OPEN 2,2,0,CHR$(8)+CHR$(0)
100 GET#2,J$ :IF (ST AND 8)=0 THEN  100 : REM CLEAR THE RECEIVE BUFFER
110 PRINT"SEND FILE TO  (1) PRINTER, (2) DISK, OR (3) SCREEN" : INPUT A$
120 N=VAL(A$)
130 ON N GOTO 150,160,180
140 GOTO 110 : REM  TRY AGAIN
150 OPEN 1,4,4 : GOTO 190 :REM PRINTER
160 INPUT"SAVE WITH WHAT FILENAME";F$
170 OPEN 1,8,8,F$+",S,W" : GOTO 190
180 OPEN 1,3    :REM SCREEN
190 REM - RECEIVE DATA -
200 GET#2,C$ : IF C$="" THEN 200
210 PRINT#1, C$;
220 IF C$<>CHR$(26) THEN 200
230 PRINT#1 : CLOSE 1
240 CLOSE 2 : END